sub main()
	dim db as MySQLDatabase
	db = new MySQLDatabase

	//change these values to connect to your mysql server
	db.host = "db.uprm.edu"
	db.username = "rea"
	db.password = "web!23"

	db.databaseName = "sysusers"

	dim rs as recordset, sql as string

	//this is the sql query to run
	sql = "select * from users where username='ctkw'"

	if db.Connect() == true then
		msgbox("Connected...")
		rs = db.getRecordset(sql)
		if rs.nil == false then
			
			msgbox("Rows returned: " & rs.recordCount)
			if rs.eof == false then
				msgbox("Name = " & rs.getStringField("name") & ", LastName = " & rs.getStringField("lname"))
			else
				msgbox("No rows matched")
			end if
			rs.close() //can no longer use this recordset
		else
			msgbox("There must be an error in your sql\n" & db.errorMessage)
		end if
		db.close() //can no longer use this db, you must reopen it
	else
		msgbox("Connection failed")
	end if

end sub